home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 29 / PC Gamer IT CD 29 2-2.iso / patch / ie4patch / ie4patnt.exe / RCDATA / CABINET / mshtml.dll / HTML / EDLINK.DLG < prev    next >
Text File  |  1997-10-16  |  8KB  |  287 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML 3.2//EN">
  2. <HTML id=dlgLink style="font-family: ms sans serif; font-size: 8pt;
  3. width: 36.7em; height: 12.3em; ">
  4. <HEAD>
  5. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  6. <TITLE>Hyperlink</TITLE>
  7. <SCRIPT>
  8. function callHelp(elm)
  9. {
  10. if (null != elm.helpid)
  11. {
  12.  window.showHelp(elm.helpfile, "" + parseInt(elm.helpid),
  13.   "popup");
  14. }
  15. else
  16. {
  17.  if ("BODY" != elm.tagName)
  18.  {
  19.   callHelp(elm.parentElement);
  20.  }
  21. }
  22. } 
  23. function btnCancelClick()
  24. {
  25. window.close();
  26. } 
  27. function getTextRange(elm)
  28. {
  29. var r = elm.parentTextEdit.createTextRange();
  30. r.moveToElementText(elm);
  31. return r;
  32. } 
  33. function mouseClick()
  34. {
  35. if (window.event.srcElement.id.substring(0,3)
  36.  == "txt")
  37. {
  38.  return;
  39. }
  40. if (window.event.button == 2)
  41. {
  42.  callHelp(window.event.srcElement);
  43. }
  44. } 
  45. function txtDefaultESC()
  46. {
  47. if (event.keyCode == 27)
  48. {
  49.  window.close();
  50.  return;
  51. }
  52. } 
  53. window.onerror = HandleError
  54. function HandleError(message, url, line)
  55. {
  56. var L_Dialog_ErrorMessage = "An error has occured in this dialog.";
  57. var L_ErrorNumber_Text = "Error: ";
  58. var str = L_Dialog_ErrorMessage + "\n\n" 
  59.  + L_ErrorNumber_Text + line + "\n"
  60.  + message;
  61. alert (str);
  62. window.close();
  63. return true;
  64. }
  65. var g_fOKEnabled = false; 
  66. var g_fURLLoaded = false; 
  67. function findAnchor(range)
  68. {
  69.  var rangeWorking;
  70.  var elmWorking;
  71.  var index;
  72.  elmWorking = range.parentElement()
  73.  while ("HTML" != elmWorking.tagName)
  74.  {
  75.   if ("A" == elmWorking.tagName)
  76.   {
  77.    return elmWorking;
  78.   }
  79.   else
  80.   {
  81.    elmWorking = elmWorking.parentElement
  82.   }
  83.  }
  84.  rangeWorking = range.duplicate();
  85.  rangeWorking.collapse(true);
  86.  rangeWorking.moveEnd("character", 1);
  87.  while (rangeWorking.compareEndPoints("EndToEnd", range) < 0)
  88.  {
  89.   rangeWorking.move("Character");
  90.   if (null != findAnchor(rangeWorking))
  91.   {
  92.    return findAnchor(rangeWorking);
  93.   }
  94.  }
  95.  return null;
  96. } 
  97. function getProtocolFromURL(strURL)
  98. {
  99.  var index;
  100.  return strURL.substring(0, strURL.indexOf(":") + 1);
  101. } 
  102. function updateProtocolSel()
  103. {
  104.  var index;
  105.  var strProtocol = getProtocolFromURL(txtURL.value);
  106.  selProtocol.value = strProtocol;
  107.  if (selProtocol.value != strProtocol)
  108.  {
  109.   selProtocol.value = "";
  110.  }
  111. } 
  112. function updateProtocolTxt()
  113. {
  114.  var strSlashProts = " file:ftp:gopher:http:https:";
  115.  var strProtocolTxt = getProtocolFromURL(txtURL.value);
  116.  var strProtocolSel = selProtocol.value;
  117.  var strTempURL;
  118.  if ("//" == (txtURL.value.substring(strProtocolTxt.length,
  119.   strProtocolTxt.length + 2)))
  120.  {
  121.   strProtocolTxt = strProtocolTxt + "//";
  122.  }
  123.  strTempURL = txtURL.value.substring(strProtocolTxt.length);
  124.  if (0 < strSlashProts.indexOf(strProtocolSel))
  125.  {
  126.   strProtocolSel = strProtocolSel + "//";
  127.  }
  128.  txtURL.value = strProtocolSel + strTempURL;
  129. } 
  130. function setOKState(fKeyPress)
  131. {
  132.  var htmlKeyAlt = 18;
  133.  if (!g_fURLLoaded)
  134.  {
  135.   if (!fKeyPress || htmlKeyAlt != event.keyCode)
  136.   {
  137.    if ((("" == txtURL.value) || (txtURL.value == selProtocol.value)
  138.     ||(txtURL.value == selProtocol.value + "//"))
  139.     == g_fOKEnabled)
  140.    {
  141.     btnOK.disabled = g_fOKEnabled
  142.     g_fOKEnabled = !g_fOKEnabled;
  143.    }
  144.   }
  145.   else
  146.   {
  147.    window.setTimeout("setOKState(false)", 10);
  148.   }
  149.  }
  150. } 
  151. function bdyLoad()
  152. {
  153.  var globalDoc = window.dialogArguments.document;
  154.  var rngMaster;
  155.  var rngLink;
  156.  var elmLink;
  157.  document.onhelp  = new 
  158.   Function("callHelp(window.event.srcElement)");
  159.  document.onmouseup = new Function("mouseClick()");
  160.  selProtocol.onchange = new Function("updateProtocolTxt()");
  161.  btnOK.onclick = new Function("btnOKClick()");
  162.  btnCancel.onclick = new Function("btnCancelClick()");
  163.  txtURL.onfocus = new Function("txtURL.select()");
  164.  txtURL.onkeyup = new Function("setOKState(true)");
  165.  txtURL.onkeypress = new Function("txtDefaultESC()");
  166.  if ("Control" == globalDoc.selection.type)
  167.  {
  168.   rngMaster = globalDoc.selection.createRange();
  169.   if (1 == rngMaster.length)
  170.   {
  171.    rngMaster = getTextRange(rngMaster(0));
  172.    rngMaster.select();
  173.   }
  174.  }
  175.  if (("Text" == globalDoc.selection.type) ||
  176.   ("None" == globalDoc.selection.type))
  177.  {
  178.   rngMaster = globalDoc.selection.createRange();
  179.   elmLink = findAnchor(rngMaster);
  180.   if (null != elmLink)
  181.   {
  182.    rngLink = getTextRange(elmLink);
  183.    if (rngLink.compareEndPoints("StartToStart", rngMaster) < 0)
  184.    {
  185.     rngMaster.setEndPoint("StartToStart", rngLink);
  186.    }
  187.    if (rngLink.compareEndPoints("EndToEnd", rngMaster) > 0)
  188.    {
  189.     rngMaster.setEndPoint("EndToEnd", rngLink);
  190.    }
  191.    rngMaster.select();
  192.    if ("" != elmLink.href)
  193.    {
  194.     txtURL.value = elmLink.href;
  195.     txtURL.href = elmLink.href;
  196.     g_fURLLoaded = true;
  197.     btnOK.disabled = false;
  198.    }
  199.    updateProtocolSel();
  200.   }
  201.  txtURL.focus();
  202.  txtURL.select();
  203.  setOKState(false);
  204.  }
  205. } 
  206. function btnOKClick()
  207. {
  208.  var globalDoc = window.dialogArguments.document;
  209.  var cmdCreateLink = "CreateLink";
  210.  var cmdUnlink  = "Unlink";
  211.  var range = globalDoc.selection.createRange();
  212.  var strSlashProts = " file:ftp:gopher:http:https:";
  213.  var strProtocol = selProtocol.value; 
  214.  if ("" == txtURL.value)
  215.  {
  216.   range.execCommand(cmdUnlink, false);
  217.   window.close();
  218.   return;
  219.  }
  220.  if (g_fURLLoaded && (txtURL.value == txtURL.href))
  221.  {
  222.   window.close();
  223.   return;
  224.  }
  225.  updateProtocolSel();
  226.  if (0 < strSlashProts.indexOf(strProtocol))
  227.  {
  228.   strProtocol = strProtocol + "//";
  229.  }
  230.  range.execCommand(cmdCreateLink, false, txtURL.value);
  231.  window.close();
  232. } 
  233. </SCRIPT>
  234. </HEAD>
  235. <BODY style="font-family: ms sans serif; font-size: 8pt;
  236. background: threedface;" onLoad="bdyLoad()">
  237. <FIELDSET id=fldLink style="font-family: ms sans serif; font-size: 8pt; 
  238. position: absolute; left: 0.98em; top: .8em; width: 25.76em; 
  239. height: 7.9em;">
  240. <LEGEND>
  241. Hyperlink Information
  242. </LEGEND>
  243. </FIELDSET>
  244. <DIV id=div2 style="font-family: ms sans serif; font-size: 8pt; position: absolute;
  245. left: 1.82em; top: 2.8899em; width: 2.66em; height: 1.2168em; ">
  246. <LABEL FOR=selProtocol tabIndex=-1 helpid="35550" helpfile="msimn.hlp">
  247. <u>T</u>ype:
  248. </LABEL>
  249. </DIV>
  250. <select id=selProtocol size=1 ACCESSKEY=t tabIndex=50
  251. style="font-family: ms sans serif; font-size: 8pt; position: absolute;
  252. left: 5.04em; top: 2.7378em; width: 6.44em; height: 2.1294em; "
  253. helpid="35550" helpfile="msimn.hlp">
  254. <OPTION value="">     (other) </OPTION>
  255. <OPTION value="file:">   file: </OPTION>
  256. <OPTION value="ftp:">    ftp: </OPTION>
  257. <OPTION value="gopher:">   gopher: </OPTION>
  258. <OPTION value="http:" SELECTED> http: </OPTION>
  259. <OPTION value="https:">   https: </OPTION>
  260. <OPTION value="mailto:">   mailto: </OPTION>
  261. <OPTION value="news:">   news: </OPTION>
  262. <OPTION value="telnet:">   telnet: </OPTION>
  263. <OPTION value="wais:">   wais: </OPTION>
  264. </select>
  265. <DIV id=div3 style="font-family: ms sans serif; font-size: 8pt; position: absolute;
  266. left: 1.82em; top: 5.9319em; width: 2.52em; height: 1.2168em; ">
  267. <LABEL FOR=txtURL tabIndex=-1 helpid="35550" helpfile="msimn.hlp">
  268. <u>U</u>RL:
  269. </LABEL>
  270. </DIV>
  271. <input accesskey=u ID="txtURL" value="http://" type=text size=35
  272. maxlength=1024 tabIndex=15 helpid="35550" helpfile="msimn.hlp"
  273. style="font-family: ms sans serif; font-size: 8pt; position: absolute;
  274. left: 5.04em; top: 5.6277em; width: 20.72em; height: 2.1294em; ">
  275. <BUTTON id=btnOK tabIndex=35 DISABLED=1 helpid="28443" helpfile="windows.hlp"
  276. style="font-family: ms sans serif; font-size: 8pt; position: absolute;
  277. left: 28em; top: 1.521em; width: 7em; height: 2.2em; " type=submit>
  278. OK
  279. </BUTTON>
  280. <BUTTON id=btnCancel tabIndex=40 helpid="28444" helpfile="windows.hlp"
  281. style="font-family: ms sans serif; font-size: 8pt; position: absolute;
  282. left: 28em; top: 4.1067em; width: 7em; height: 2.2em; " type=reset>
  283. Cancel
  284. </BUTTON>
  285. </BODY>
  286. </HTML>
  287.